object frmbillcode: Tfrmbillcode
  Left = 0
  Top = 0
  Caption = #29983#20135#31649#25511#32534#30721#24037#20855
  ClientHeight = 424
  ClientWidth = 773
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 773
    Height = 169
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 77
      Top = 26
      Width = 48
      Height = 13
      Caption = #28304#25991#20214#65306
    end
    object lblname: TLabel
      Left = 74
      Top = 51
      Width = 48
      Height = 13
      Caption = #21407#34920#21517#65306
    end
    object Label2: TLabel
      Left = 263
      Top = 51
      Width = 60
      Height = 13
      Caption = #30446#26631#34920#21517#65306
    end
    object btnexec: TButton
      Left = 456
      Top = 45
      Width = 145
      Height = 25
      Caption = #29983#25104#26032#37319#38598#25991#20214
      TabOrder = 0
      OnClick = btnexecClick
    end
    object Edit1: TEdit
      Left = 131
      Top = 48
      Width = 129
      Height = 21
      ImeName = #20013#25991'('#31616#20307') - 2345'#29579#29260#25340#38899#36755#20837#27861
      TabOrder = 1
      Text = 'LM_Materialsend'
    end
    object cxButtonEdit1: TcxButtonEdit
      Left = 131
      Top = 21
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
      TabOrder = 2
      Text = 'E:\createTableTool\'#24037#20316#33258#21160#32534#30721'\gpallas'#21333#25454#27169#22359'\uLM_Materialsend.pas'
      Width = 470
    end
    object Edit2: TEdit
      Left = 321
      Top = 48
      Width = 129
      Height = 21
      ImeName = #20013#25991'('#31616#20307') - 2345'#29579#29260#25340#38899#36755#20837#27861
      TabOrder = 3
      Text = 'LM_MaterialWaste'
    end
    object Button1: TButton
      Left = 131
      Top = 75
      Width = 145
      Height = 25
      Caption = #26448#26009#33410#36229#20998#26512#34920
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 131
      Top = 106
      Width = 145
      Height = 25
      Caption = #38480#39069#21457#26009#21488#24080
      TabOrder = 5
      OnClick = Button2Click
    end
    object Edit3: TEdit
      Left = 288
      Top = 107
      Width = 145
      Height = 21
      ImeName = #20013#25991'('#31616#20307') - 2345'#29579#29260#25340#38899#36755#20837#27861
      TabOrder = 6
      Text = '18'
    end
    object Button3: TButton
      Left = 131
      Top = 137
      Width = 145
      Height = 25
      Caption = #25968#23383#36716#20013#25991#27979#35797
      TabOrder = 7
      OnClick = Button3Click
    end
    object Edit4: TEdit
      Left = 288
      Top = 139
      Width = 145
      Height = 21
      ImeName = #20013#25991'('#31616#20307') - 2345'#29579#29260#25340#38899#36755#20837#27861
      TabOrder = 8
      Text = '250'
    end
    object Button4: TButton
      Left = 288
      Top = 75
      Width = 145
      Height = 25
      Caption = #24212#32791#37327#32479#35745#34920
      TabOrder = 9
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 456
      Top = 75
      Width = 145
      Height = 25
      Caption = #25968#23383#36716#23383#27597#27979#35797
      TabOrder = 10
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 456
      Top = 106
      Width = 145
      Height = 25
      Caption = #21151#33021#27979#35797#25353#38062
      TabOrder = 11
      OnClick = Button6Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 169
    Width = 773
    Height = 255
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'excel '#36716'cxgrid '#30340#29983#25104
      object PMain: TPanel
        Left = 0
        Top = 0
        Width = 765
        Height = 227
        Align = alClient
        TabOrder = 0
        object right: TcxMemo
          Left = 1
          Top = 65
          Align = alClient
          Properties.ScrollBars = ssBoth
          TabOrder = 0
          Height = 161
          Width = 763
        end
        object Panel2: TPanel
          Left = 1
          Top = 1
          Width = 763
          Height = 64
          Align = alTop
          TabOrder = 1
          object Label4: TLabel
            Left = 20
            Top = 39
            Width = 36
            Height = 13
            Caption = #24635#39029#31614
          end
          object Label5: TLabel
            Left = 190
            Top = 39
            Width = 48
            Height = 13
            Caption = #36716#25442#39029#31614
          end
          object choosefile: TcxButtonEdit
            Left = 19
            Top = 8
            Properties.Buttons = <
              item
                Default = True
                Kind = bkEllipsis
              end>
            Properties.OnButtonClick = choosefilePropertiesButtonClick
            TabOrder = 0
            Text = #36873#25321#25991#20214
            Width = 322
          end
          object btnexceltocxgrid: TButton
            Left = 347
            Top = 4
            Width = 121
            Height = 25
            Caption = 'excel'#36716#25104'cxgrid'
            TabOrder = 1
            OnClick = btnexceltocxgridClick
          end
          object edtsheetcounts: TcxTextEdit
            Left = 62
            Top = 35
            Enabled = False
            TabOrder = 2
            Text = '1'
            Width = 115
          end
          object comboxtablenames: TComboBox
            Left = 239
            Top = 35
            Width = 102
            Height = 21
            ImeName = #20013#25991'('#31616#20307') - 2345'#29579#29260#25340#38899#36755#20837#27861
            TabOrder = 3
            Text = 'comboxtablenames'
            OnChange = comboxtablenamesChange
          end
          object edttablename: TcxTextEdit
            Left = 347
            Top = 35
            Properties.Nullstring = #34920#21517#31216
            TabOrder = 4
            Text = 'LM_Material'
            Width = 99
          end
          object btnprdgrd: TButton
            Left = 474
            Top = 4
            Width = 145
            Height = 25
            Caption = #29983#25104#26032#28304#25991#20214
            TabOrder = 5
            OnClick = btnprdgrdClick
          end
          object CheckBox1: TCheckBox
            Left = 452
            Top = 35
            Width = 144
            Height = 17
            Caption = #26174#31034#19981#21487#35265#23383#27573
            Checked = True
            State = cbChecked
            TabOrder = 6
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'excel '#26684#24335#36716'delphi'#20195#30721' '
      ImageIndex = 1
      object MiD: TcxMemo
        Left = 0
        Top = 64
        Align = alClient
        Lines.Strings = (
          'procedure TfrmLM_MaterialBudget.exporttoexcel_Budget;'
          'var'
          '  h:integer;'
          '  ExcelObj: OleVariant;'
          '  saveDialog : TSaveDialog;'
          'begin'
          '    try'
          '      ExcelObj := CreateOLEObject('#39'Excel.Application'#39');'
          '    except'
          '      ShowMessage('#39'Excel'#27809#26377#23433#35013#65281#39');'
          '      Exit;'
          '    end;'
          '    saveDialog := tsavedialog.Create(nil);'
          '    saveDialog.FileName := '#39#26448#26009#33410#36229#34920#39';'
          
            '    saveDialog.Filter := '#39'Excel'#25991#20214'(*.xlsx)|*.xlsx|Excel'#25991#20214'(*.xls)|' +
            '*.xls'#39';'
          '    if saveDialog.Execute then'
          '    begin'
          '      try'
          '        try'
          '          ExcelObj.Visible := False;'
          '          ExcelObj.WorkBooks.Add;'
          '          ExcelObj.worksheets[1].Name := '#39#26448#26009#33410#36229#20998#26512#34920#39';'
          '          ExcelObj.worksheets[1].Range['#39'A1:R2'#39'].Merge();'
          
            '          ExcelObj.worksheets[1].Range['#39'A1:R2'#39'].Font.Name := '#39#23435#20307 +
            #39';'
          '          ExcelObj.worksheets[1].Range['#39'A1:R2'#39'].Font.Size := 20;'
          '          ExcelObj.worksheets[1].Range['#39'A1:R2'#39'].Font.bold:=True;'
          '          ExcelObj.WorkSheets[1].Cells[1,1].Value :='#39#26448#26009#33410#36229#34920#39';'
          
            '          ExcelObj.worksheets[1].Range['#39'A1:A1'#39'].HorizontalAlignm' +
            'ent := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].Range['#39'A1:A1'#39'].VerticalAlignmen' +
            't := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].Rows[1].RowHeight := 20.1;   //' +
            #34892#39640
          
            '          ExcelObj.worksheets[1].Rows[2].RowHeight := 20.1;   //' +
            #34892#39640
          ''
          
            '          ExcelObj.worksheets[1].Columns[1].ColumnWidth := 3; //' +
            #21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[2].ColumnWidth := 7.45;' +
            ' //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[3].ColumnWidth := 8.25;' +
            ' //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[4].ColumnWidth := 3.63;' +
            ' //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[5].ColumnWidth := 10.25' +
            '; //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[6].ColumnWidth := 8.38;' +
            ' //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[7].ColumnWidth := 7.5; ' +
            '//'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[8].ColumnWidth := 7.5; ' +
            '//'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[9].ColumnWidth := 7.5; ' +
            '//'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[10].ColumnWidth := 7.5;' +
            ' //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[11].ColumnWidth := 9.25' +
            '; //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[12].ColumnWidth := 5.25' +
            '; //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[13].ColumnWidth := 8.13' +
            '; //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[14].ColumnWidth := 8.75' +
            '; //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[15].ColumnWidth := 9; /' +
            '/'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[16].ColumnWidth := 9.75' +
            '; //'#21015#23485
          
            '          ExcelObj.worksheets[1].Columns[17].ColumnWidth := 11.3' +
            '8; //'#21015#23485#24230
          
            '          ExcelObj.worksheets[1].Columns[18].ColumnWidth := 4.75' +
            '; //'#21015#23485#24230
          ''
          
            '          ExcelObj.worksheets[1].Rows[3].RowHeight := 13.5;   //' +
            #34892#39640
          '          ExcelObj.worksheets[1].range['#39'A3:I3'#39'].Merge(True);'
          '          ExcelObj.worksheets[1].range['#39'N3:O3'#39'].Merge(True);'
          '          ExcelObj.worksheets[1].range['#39'P3:R3'#39'].Merge(True);'
          
            '          ExcelObj.worksheets[1].Range['#39'A3:R3'#39'].Font.Name := '#39#23435#20307 +
            #39';'
          '          ExcelObj.worksheets[1].Range['#39'A3:R3'#39'].Font.Size := 9;'
          
            '          ExcelObj.worksheets[1].Range['#39'A3:R3'#39'].Font.bold:=False' +
            ';'
          
            '          ExcelObj.WorkSheets[1].Cells[3,1].Value :='#39#21333#20301#21517#31216#65306#20013#38081#21313#19968#23616#38598 +
            #22242#26377#39
          
            '                                            +'#39#38480#20844#21496#24576#38451#39640#36895#20844#36335'LM1'#26631#39033#30446#32463#29702#37096 +
            #39';'
          
            '          ExcelObj.worksheets[1].Range['#39'A3:A3'#39'].HorizontalAlignm' +
            'ent := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].Range['#39'A3:A3'#39'].VerticalAlignmen' +
            't := $FFFFEFF4;'
          
            '          ExcelObj.WorkSheets[1].Cells[3,16].Value := '#39#30424#28857#26085#26399#65306#39'+Fo' +
            'rmatDatetime('#39'yyyy '#24180' mm '#26376' dd '#26085#39',Date);'
          
            '          ExcelObj.worksheets[1].Range['#39'P3:P3'#39'].HorizontalAlignm' +
            'ent := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].Range['#39'P3:P3'#39'].VerticalAlignmen' +
            't := $FFFFEFF4;'
          ''
          
            '          ExcelObj.worksheets[1].Range['#39'A4:R5'#39'].Font.Name := '#39#23435#20307 +
            #39';'
          '          ExcelObj.worksheets[1].Range['#39'A4:R5'#39'].Font.Size := 10;'
          
            '          ExcelObj.worksheets[1].Range['#39'A4:R5'#39'].Font.bold:=False' +
            ';'
          '          ExcelObj.worksheets[1].Rows[4].RowHeight := 52;   //'#34892#39640
          
            '          ExcelObj.worksheets[1].Rows[5].RowHeight := 26.25;   /' +
            '/'#34892#39640
          '          ExcelObj.worksheets[1].range['#39'A4:A5'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'B4:B5'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'C4:C5'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'D4:D5'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'E4:E5'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'F4:F5'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'G4:J4'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'K4:M4'#39'].Merge();'
          ''
          '          ExcelObj.worksheets[1].range['#39'N4:N5'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'O4:O5'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'P4:Q4'#39'].Merge();'
          '          ExcelObj.worksheets[1].range['#39'R4:R5'#39'].Merge();'
          
            '          ExcelObj.worksheets[1].Range['#39'A4:R5'#39'].HorizontalAlignm' +
            'ent := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].Range['#39'A4:R5'#39'].VerticalAlignmen' +
            't := $FFFFEFF4;'
          '          ExcelObj.WorkSheets[1].Cells[4,1].Value :='#39#24207#21495#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[4,2].Value :='#39#26448#26009#39'+#13#10+' +
            #39#21517#31216#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,3].Value :='#39#35268#26684#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[4,4].Value :='#39#35745#37327#39'+#13#10+' +
            #39#21333#20301#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,5].Value :='#39#26412#26399#29702#35770#29992#37327#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,6].Value :='#39#26412#26399#24212#32791#37327#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,7].Value :='#39#26412#26399#23454#38469#28040#32791#37327#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,11].Value :='#39#26412#26399#33410#36229#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,14].Value :='#39#24320#32047#24212#32791#37327#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,15].Value :='#39#24320#32047#23454#32791#37327#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,16].Value :='#39#24320#32047#33410#36229#39';'
          '          ExcelObj.WorkSheets[1].Cells[4,18].Value :='#39#22791#27880#39';'
          ''
          '          ExcelObj.WorkSheets[1].Cells[5,7].Value :='#39#19978#26399#24211#23384#39';'
          '          ExcelObj.WorkSheets[1].Cells[5,8].Value :='#39#26412#26399#39046#26009#39';'
          '          ExcelObj.WorkSheets[1].Cells[5,9].Value :='#39#26412#26399#24211#23384#39';'
          '          ExcelObj.WorkSheets[1].Cells[5,10].Value :='#39#23567#35745#39';'
          ''
          '          ExcelObj.WorkSheets[1].Cells[5,11].Value :='#39#25968#37327#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[5,12].Value :='#39#19981#21547#31246#39'+#13#1' +
            '0+'#39#21333#20215#39';'
          '          ExcelObj.WorkSheets[1].Cells[5,13].Value :='#39#19981#21547#31246#37329#39069#39';'
          '          ExcelObj.WorkSheets[1].Cells[5,16].Value :='#39#25968#37327#39';'
          '          ExcelObj.WorkSheets[1].Cells[5,17].Value :='#39#19981#21547#31246#37329#39069#39';'
          ''
          
            '          ExcelObj.worksheets[1].range['#39'A1:R2'#39'].Borders.linestyl' +
            'e :=  1;'
          
            '          ExcelObj.worksheets[1].range['#39'A4:R5'#39'].Borders.linestyl' +
            'e :=  1;'
          ''
          '          h:=6;'
          '          with cdsLM_MaterialBudget do'
          '          begin'
          '            First;'
          '            while not Eof do'
          '            begin'
          '              ExcelObj.WorkSheets[1].Cells[h,1].Value :='
          
            '                                     WideString(FieldByName('#39'Ord' +
            'erNo'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,2].Value :='
          
            '                                     WideString(FieldByName('#39'Mat' +
            'erial'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,3].Value :='
          
            '                                     WideString(FieldByName('#39'Spe' +
            'c'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,4].Value :='
          
            '                                     WideString(FieldByName('#39'Uni' +
            't'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,5].Value :='
          
            '                                     WideString(FieldByName('#39'Bql' +
            'lyl'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,6].Value :='
          
            '                                     WideString(FieldByName('#39'Bqy' +
            'hl'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,7].Value :='
          
            '                                     WideString(FieldByName('#39'Sqk' +
            'c'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,8].Value :='
          
            '                                     WideString(FieldByName('#39'Bql' +
            'l'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,9].Value :='
          
            '                                     WideString(FieldByName('#39'Bqk' +
            'c'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,10].Value :='
          
            '                                     WideString(FieldByName('#39'Bqs' +
            'jxhl'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,11].Value :='
          
            '                                     WideString(FieldByName('#39'Bqj' +
            'cl'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,12].Value := '#39#39';'
          '              ExcelObj.WorkSheets[1].Cells[h,13].Value :='
          
            '                                     '#39'=K'#39'+inttostr(h)+'#39'*L'#39'+IntTo' +
            'Str(h);'
          '              ExcelObj.WorkSheets[1].Cells[h,14].Value :='
          
            '                                     WideString(FieldByName('#39'Kly' +
            'hl'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,15].Value :='
          
            '                                     WideString(FieldByName('#39'Kls' +
            'hl'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,16].Value :='
          
            '                                     WideString(FieldByName('#39'Klj' +
            'csl'#39').AsString);'
          '              ExcelObj.WorkSheets[1].Cells[h,17].Value :='
          
            '                                     '#39'=L'#39'+inttostr(h)+'#39'*P'#39'+IntTo' +
            'Str(h);'
          '              ExcelObj.WorkSheets[1].Cells[h,18].Value :='
          
            '                                     WideString(FieldByName('#39'rem' +
            'ark'#39').AsString);'
          '              Next;'
          '              h := h + 1;'
          '            end;'
          '          end;'
          ''
          '          if h<10 then'
          '          begin'
          '            h := 10;'
          '          end;'
          '          //'#36793#26694
          
            '          ExcelObj.worksheets[1].range['#39'A6:R'#39'+IntToStr(h)].RowHe' +
            'ight := 24; // '#34892#39640
          
            '          ExcelObj.worksheets[1].range['#39'A6:R'#39'+IntToStr(h)].Borde' +
            'rs.linestyle:=  1; //'#24038#65292
          
            '          ExcelObj.worksheets[1].range['#39'E6:Q'#39'+IntToStr(h)].numbe' +
            'rformatlocal:='#39'0.00'#39';'
          
            '          ExcelObj.worksheets[1].Range['#39'A6:R'#39'+IntToStr(h)].Font.' +
            'Name := '#39#23435#20307#39';'
          
            '          ExcelObj.worksheets[1].Range['#39'A6:R'#39'+IntToStr(h)].Font.' +
            'Size := 8;'
          
            '          ExcelObj.worksheets[1].Range['#39'A6:R'#39'+IntToStr(h)].Font.' +
            'bold:=False;'
          
            '          ExcelObj.worksheets[1].Range['#39'A6:R'#39'+IntToStr(h)].Horiz' +
            'ontalAlignment := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].Range['#39'A6:R'#39'+IntToStr(h)].Verti' +
            'calAlignment := $FFFFEFF4;'
          ''
          '          h := h +1;'
          '          ExcelObj.worksheets[1].Rows[h].RowHeight := 33; // '#34892#39640
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':C'#39'+IntT' +
            'oStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].Font.Name := '#39#23435#20307#39';'
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].Font.Size := 8;'
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].Font.bold:=False;'
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].HorizontalAlignment := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].VerticalAlignment := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].Borders.linestyle:=  1;'
          
            '          ExcelObj.worksheets[1].range['#39'E'#39'+IntToStr(h)+'#39':Q'#39'+IntT' +
            'oStr(h)].numberformatlocal:='#39'0.00'#39';'
          ''
          '          ExcelObj.WorkSheets[1].Cells[h,1].Value := '#39#21512#35745#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,5].Value := '#39'=SUM(E6:E1' +
            '0)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,6].Value := '#39'=SUM(F6:F1' +
            '0)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,7].Value := '#39'=SUM(G6:G1' +
            '0)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,8].Value := '#39'=SUM(H6:H1' +
            '0)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,9].Value := '#39'=SUM(I6:I1' +
            '0)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,10].Value := '#39'=SUM(J6:J' +
            '10)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,11].Value := '#39'=SUM(K6:K' +
            '10)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,12].Value := '#39'=SUM(L6:L' +
            '10)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,13].Value := '#39'=SUM(M6:M' +
            '10)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,14].Value := '#39'=SUM(N6:N' +
            '10)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,15].Value := '#39'=SUM(O6:O' +
            '10)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,16].Value := '#39'=SUM(P6:P' +
            '10)'#39';'
          
            '          ExcelObj.WorkSheets[1].Cells[h,17].Value := '#39'=SUM(Q6:Q' +
            '10)'#39';'
          ''
          '          h := h +1;'
          '          ExcelObj.worksheets[1].Rows[12].RowHeight := 62; // '#34892#39640
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':B'#39'+IntT' +
            'oStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '          ExcelObj.worksheets[1].Range['#39'I'#39'+IntToStr(h)+'#39':K'#39'+IntT' +
            'oStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '          ExcelObj.worksheets[1].Range['#39'O'#39'+IntToStr(h)+'#39':P'#39'+IntT' +
            'oStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '          ExcelObj.worksheets[1].Range['#39'Q'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].Font.Name := '#39#23435#20307#39';'
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].Font.Size := 11;'
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].Font.bold:=False;'
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].HorizontalAlignment := $FFFFEFF4;'
          
            '          ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+IntT' +
            'oStr(h)].VerticalAlignment := $FFFFEFF4;'
          ''
          '           ExcelObj.WorkSheets[1].Cells[h,1].Value := '#39#39033#30446#32463#29702#65306#39';'
          '           ExcelObj.WorkSheets[1].Cells[h,9].Value := '#39#24037#31243#37096#38271#65306#39';'
          '           ExcelObj.WorkSheets[1].Cells[h,15].Value := '#39#29289#36164#37096#38271#65306#39';'
          ''
          '           h := h + 1;'
          
            '           ExcelObj.worksheets[1].Rows[13].RowHeight := 84; // '#34892 +
            #39640
          
            '           ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':B'#39'+Int' +
            'ToStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '           ExcelObj.worksheets[1].Range['#39'I'#39'+IntToStr(h)+'#39':K'#39'+Int' +
            'ToStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '           ExcelObj.worksheets[1].Range['#39'O'#39'+IntToStr(h)+'#39':P'#39'+Int' +
            'ToStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '           ExcelObj.worksheets[1].Range['#39'Q'#39'+IntToStr(h)+'#39':R'#39'+Int' +
            'ToStr(h)].Merge(); //True '#21516#34892#21512#24182
          
            '           ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+Int' +
            'ToStr(h)].Font.Name := '#39#23435#20307#39';'
          
            '           ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+Int' +
            'ToStr(h)].Font.Size := 11;'
          
            '           ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+Int' +
            'ToStr(h)].Font.bold:=False;'
          
            '           ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+Int' +
            'ToStr(h)].HorizontalAlignment := $FFFFEFF4;'
          
            '           ExcelObj.worksheets[1].Range['#39'A'#39'+IntToStr(h)+'#39':R'#39'+Int' +
            'ToStr(h)].VerticalAlignment := $FFFFEFF4;'
          ''
          '           ExcelObj.WorkSheets[1].Cells[h,1].Value := '#39#36130#21153#37096#38271#65306#39';'
          '           ExcelObj.WorkSheets[1].Cells[h,9].Value := '#39#35745#21010#21512#21516#37096#38271#65306#39';'
          
            '           ExcelObj.WorkSheets[1].Cells[h,15].Value := '#39#20998#21253#21830#36127#36131#20154#65306#39 +
            ';'
          '        except'
          '          ExcelObj.Quit;'
          '        end;'
          '        ExcelObj.worksheets[1].SaveAs(saveDialog.FileName);'
          '        ShowMessage('#39#24050#25104#21151#23548#20986'Excel'#65281#39');'
          '      finally'
          '        ExcelObj.Quit;'
          '        ExcelObj := UnAssigned;'
          '      end;'
          '    end'
          '    else'
          '    begin'
          '      ExcelObj.Quit;'
          '    end;'
          ''
          'end;')
        Properties.ScrollBars = ssBoth
        TabOrder = 0
        Height = 163
        Width = 765
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 765
        Height = 64
        Align = alTop
        TabOrder = 1
        object Label6: TLabel
          Left = 209
          Top = 37
          Width = 24
          Height = 13
          Caption = #39029#31614
        end
        object btnexcelfile: TcxButtonEdit
          Left = 19
          Top = 8
          Properties.Buttons = <
            item
              Default = True
              Kind = bkEllipsis
            end>
          Properties.OnButtonClick = btnexcelfilePropertiesButtonClick
          TabOrder = 0
          Text = #36873#25321#25991#20214
          Width = 214
        end
        object btnexceltopas: TButton
          Left = 369
          Top = 6
          Width = 99
          Height = 25
          Caption = 'excel'#36716#25104'Pas'#25991#20214
          TabOrder = 1
          OnClick = btnexceltopasClick
        end
        object edtpagecount: TcxTextEdit
          Left = 10
          Top = 33
          Enabled = False
          TabOrder = 2
          Text = 'h2-5;t6-6;m7-12;s13-13;f14-14;maxj-j'
          Width = 193
        end
        object cmbtablename: TComboBox
          Left = 239
          Top = 35
          Width = 124
          Height = 21
          ImeName = #20013#25991'('#31616#20307') - 2345'#29579#29260#25340#38899#36755#20837#27861
          TabOrder = 3
          Text = 'cmbtablename'
          OnChange = cmbtablenameChange
        end
        object edtcdsname: TcxTextEdit
          Left = 369
          Top = 37
          Properties.Nullstring = #34920#21517#31216
          TabOrder = 4
          Text = #26448#26009#33410#36229#34920
          Width = 99
        end
        object chk1: TCheckBox
          Left = 474
          Top = 14
          Width = 144
          Height = 17
          Caption = 'SetPageHeader'
          Checked = True
          State = cbChecked
          TabOrder = 5
        end
        object chk2: TCheckBox
          Left = 596
          Top = 14
          Width = 144
          Height = 17
          Caption = 'SetTitle'
          Checked = True
          State = cbChecked
          TabOrder = 6
        end
        object chk3: TCheckBox
          Left = 474
          Top = 37
          Width = 144
          Height = 17
          Caption = 'SetMasterData'
          Checked = True
          State = cbChecked
          TabOrder = 7
        end
        object chk4: TCheckBox
          Left = 684
          Top = 37
          Width = 144
          Height = 17
          Caption = 'SetPageFooter'
          Checked = True
          State = cbChecked
          TabOrder = 8
        end
        object edtcdsclientname: TcxTextEdit
          Left = 239
          Top = 8
          Properties.Nullstring = #34920#21517#31216
          TabOrder = 9
          Text = 'cdsLM_MaterialBudget'
          Width = 124
        end
        object chk5: TCheckBox
          Left = 596
          Top = 37
          Width = 82
          Height = 17
          Caption = 'SetSum'
          Checked = True
          State = cbChecked
          TabOrder = 10
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20195#24320#21457#24037#20855'3'
      ImageIndex = 2
      object cxGrid1: TcxGrid
        Left = 0
        Top = 0
        Width = 765
        Height = 227
        Align = alClient
        TabOrder = 0
        object cxGrid1DBTableView1: TcxGridDBTableView
          Navigator.Buttons.CustomButtons = <>
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsView.PrintRowHeight = 0
          object cxGrid1DBTableView1Column1: TcxGridDBColumn
            DataBinding.FieldName = 'dd'
            PropertiesClassName = 'TcxDateEditProperties'
            Properties.Alignment.Horz = taCenter
            Properties.DateOnError = deNull
            HeaderAlignmentHorz = taCenter
          end
        end
        object cxGrid1Level1: TcxGridLevel
          GridView = cxGrid1DBTableView1
        end
      end
    end
  end
  object FileOpenDialog1: TFileOpenDialog
    FavoriteLinks = <>
    FileTypes = <>
    Options = []
    Left = 712
    Top = 96
  end
end
